home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour40.gif < prev    next >
Graphics Interchange Format  |  1996-01-24  |  2.5 KB  |  393x166  |  1-bit (2 colors)  |  [GIFf/BABL]
   ocr: on doGather (path) local (f) fileloop (f in path) <loop over all the files in the path if file.isFolder (f) <it's a folder, recurse iffl= desttolder <don't go into the new folder dogather (f) else <it's a file msg (file.fileFromPath (f)) if recentiyUhanged (f) <it matches the local script's criteria file.new Alias (f, desttolder + file.fileFromPath (f)) <create the alias ctgathered++